home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / MORE_SOURCE / AJC-TRON-EFFECT.AMOS / AJC-TRON-EFFECT.amosSourceCode
AMOS Source Code  |  1992-02-26  |  1KB  |  44 lines
  1. '
  2. ' "TRON EFFECT" (as seen in "ILLUSIONS" Shareware art package) 
  3. ' By Andrew Campbell 
  4. '  
  5. ' ** Compile for super-sonic speed! ** 
  6. ' ** Change "Plot XP,YP" to "Circle XP,YP,2" for good effect! ** 
  7. '            (^ line 24) 
  8. '
  9.  
  10. Screen Open 0,320,256,32,Lowres
  11. Curs Off : Flash Off : Curs Off : Hide On : Cls 0
  12.  
  13. Palette $0,$110,$220,$330,$440,$550,$660,$770,$880,$990,$AA0,$BB0,$CC0,$DD0,$EE0,$FF0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,0,0
  14. C=1 : Ink C : Shift Up 1,1,31,1
  15.  
  16.  _DIR=Rnd(3)+1
  17.  XP=X : YP=Y
  18.  Repeat 
  19.   Inc C : Gosub CS
  20.   If _DIR=1 : Dec XP : Dec YP : End If 
  21.   If _DIR=2 : Inc XP : Dec YP : End If 
  22.   If _DIR=3 : Inc XP : Inc YP : End If 
  23.   If _DIR=4 : Dec XP : Inc YP : End If 
  24.  Plot XP,YP
  25.   If XP<1 and _DIR=1 : _DIR=2 : End If 
  26.   If XP<1 and _DIR=4 : _DIR=3 : End If 
  27.   If XP>318 and _DIR=2 : _DIR=1 : End If 
  28.   If XP>318 and _DIR=3 : _DIR=4 : End If 
  29.   If YP<1 and _DIR=1 : _DIR=4 : End If 
  30.   If YP<1 and _DIR=2 : _DIR=3 : End If 
  31.   If YP>255 and _DIR=4 : _DIR=1 : End If 
  32.   If YP>255 and _DIR=3 : _DIR=2 : End If 
  33.  Until Mouse Key
  34.  
  35. ED:
  36. Shift Off 
  37. Fade 1 : Wait 15 : Cls 0
  38. Edit 
  39.  
  40. CS:
  41. Inc C
  42. If C>30 : C=1 : End If 
  43. Ink C
  44. Return